﻿Public Class MonHocBUS
    Public Function LayDanhSachMonHoc() As List(Of MonHocDTO)
        Dim mhDAO As New MonHocDAO
        Return mhDAO.LayDanhSachMonHoc()
    End Function

    Public Function ThemMonHoc(ByVal mh As MonHocDTO) As Integer
        Dim mhDAO As New MonHocDAO()
        Return mhDAO.ThemMonHoc(mh)
    End Function

    Public Function XoaMonHoc(ByVal mh As MonHocDTO) As Integer
        Dim mhDAO As New MonHocDAO
        Return mhDAO.XoaMonHoc(mh)
    End Function

    Public Function SuaMonHoc(ByVal mh As MonHocDTO) As Integer
        Dim mhDAO As New MonHocDAO
        Return mhDAO.SuaMonHoc(mh)
    End Function

    Public Function TraCuuMonHoc(ByVal mh As MonHocDTO) As List(Of MonHocDTO)
        Dim mhDAO As New MonHocDAO
        Return mhDAO.TraCuuMonHoc(mh)
    End Function
End Class
